home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / LB14W.EXE / CALLDLL5.BAS < prev    next >
BASIC Source File  |  1996-02-01  |  1KB  |  61 lines
  1.  
  2.     'CALLDLL5.BAS  -  make various API calls to play wave files, track
  3.     'the mouse position, and move a window around
  4.  
  5.     struct point, x as short, y as short
  6.  
  7.     open "kernel" for dll as #kernel
  8.     open "user" for dll as #user
  9.     open "mmsystem" for dll as #mmsystem
  10.     open "Me" for window as #aWindow
  11.  
  12.     print str$(playMode)
  13.  
  14.     wavefile$ = "chimes.wav"
  15.     playMode = 0
  16.     calldll #mmsystem, "sndPlaySound", wavefile$ as ptr, playMode as ushort, result as bool
  17.  
  18.     hndl = hwnd(#aWindow)
  19.  
  20.     for i = 1 to 150
  21.  
  22.         calldll #user, "GetCursorPos", _
  23.             point as struct, _
  24.             result as void
  25.  
  26.         x = point.x.struct
  27.         y = point.y.struct
  28.  
  29.         calldll #user, "MoveWindow", _
  30.             hndl as word, _
  31.             x as short, _
  32.             y as short, _
  33.             100 as short, _
  34.             100 as short, _
  35.             1 as word, _
  36.             result as void
  37.  
  38.     next x
  39.  
  40.     input r$
  41.  
  42.     progname$ = "notepad.exe"
  43.     code = _SW_SHOWNA
  44.  
  45.     notice str$(code)
  46.  
  47.     calldll #kernel, "WinExec", _
  48.         progname$ as struct, _
  49.         code as word, _
  50.         result as word
  51.  
  52.     print result
  53.  
  54.     input r$
  55.  
  56.     close #kernel
  57.  
  58.     input r$
  59.  
  60.     'WinConstants
  61.